home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_90-05_1990_-_de_Side_A.d64 / zeichendemo gk6 (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  3KB  |  87 lines
  1. 10 poke53280,0:poke53281,6:v=53248
  2. 15 print"[147]                [218]eichendemo             "
  3. 20 print"[196]ieses [208]rogramm enthaelt 5 [196]emoprogram-"
  4. 30 print"me zum [199]rafik-[203]urs [212]eil 6."
  5. 40 print"[210]ufen [211]ie diese aus dem nun folgenden"
  6. 45 print"[205]enu ganz einfach auf."
  7. 50 print"[213]li [194]asters."
  8. 60 print"                          [212]aste druecken"
  9. 70 geta$:ifa$=""then70
  10. 80 :
  11. 90 rem *************
  12. 91 rem * hauptmenu *
  13. 92 rem *************
  14. 100 print"[147]                [218]eichendemo             "
  15. 110 print"[194]itte waehlen [211]ie:"
  16. 120 print"------------------"
  17. 130 print" 1 [146] - [205]ulicolorzeichendemo"
  18. 140 print" 2 [146] - [197]xtended-[194]ackground-[195]olor-[196]emo"
  19. 150 print" 3 [146] - [214]ertikalscroll"
  20. 170 print" 4 [146] - [194]ildschirmwackeln"
  21. 180 print" 5 [146] - [208]rogrammende"
  22. 190 geta$:ifa$=""then190
  23. 200 a=asc(a$)-48:ifa<1ora>5then190
  24. 205 ifa=5thensys64738
  25. 210 onagosub300,400,500,600
  26. 220 goto100
  27. 230 :
  28. 290 rem *****************
  29. 291 rem * muticolordemo *
  30. 292 rem *****************
  31. 300 print"[147]             [205]ulticolordemo             "
  32. 305 fori=0to1
  33. 310 print"[196]iese [196]emo zeigt, wie unterschiedlich"
  34. 320 print"ein [218]eichensatz im [205]ulticolormodus dar-"
  35. 330 print"gestellt werden kann."
  36. 340 next
  37. 350 pokev+22,peek(v+22)or16:pokev+35,0:pokev+34,7
  38. 360 fori=55816to55916:pokei,9:next
  39. 370 print"                          [212]aste druecken"
  40. 380 geta$:ifa$=""then380
  41. 385 poke53270,200
  42. 390 return
  43. 391 :
  44. 392 rem ************
  45. 393 rem * ebc-demo *
  46. 394 rem ************
  47. 400 print"[147]     extended-background-color-demo     ";chr$(142)
  48. 410 print"diese demo zeigt, wie verschieden die"
  49. 420 print"zeichen im extended-background-color-"
  50. 430 print"modus des 64ers erscheinen koennen..."
  51. 440 pokev+17,peek(v+17)or64
  52. 450 pokev+34,11:pokev+35,12:pokev+36,15
  53. 460 fori=0to255:poke1744+i,i:next
  54. 470 print"                          taste druecken"
  55. 480 geta$:ifa$=""then480
  56. 485 pokev+17,peek(v+17)andnot64
  57. 490 return
  58. 491 :
  59. 492 rem ******************
  60. 493 rem * vertikalscroll *
  61. 494 rem ******************
  62. 500 print"[147]            [214]ertikalscrolldemo          "
  63. 510 print"   [196]as ist eine [211]crolldemo. [196]er [194]ild-"
  64. 520 print"   schirm bewegt sich ganz weich nach"
  65. 530 print"   links und nach rechts"
  66. 550 print"             [212]aste druecken"
  67. 560 pokev+22,peek(v+22)and not 8
  68. 565 q=peek(v+22)
  69. 570 fori=7to0step-1:pokev+22,q+i:forz=0to50:nextz:nexti
  70. 580 fori=1to7:pokev+22,q+i:forz=0to50:nextz:nexti
  71. 585 geta$:ifa$<>""thenpokev+17,27:return
  72. 590 goto570
  73. 591 :
  74. 592 rem *********************
  75. 593 rem * bildschirmwackeln *
  76. 594 rem *********************
  77. 600 print"[147]            [194]ildschirmwackeln           "
  78. 610 print"[196]ieser [215]ackeleffekt kann gut in"
  79. 620 print"[211]pielen bei [197]xplosionen eingesetzt"
  80. 630 print"werden."
  81. 640 print"             [212]aste druecken"
  82. 650 p=peek(v+17)-4:q=peek(v+22)
  83. 660 a=int(7*rnd(1))+1:b=int(7*rnd(1))+1
  84. 670 pokev+17,p+a:pokev+22,q+b
  85. 675 geta$:ifa$<>""thenpokev+17,27:pokev+22,8:return
  86. 680 goto660
  87.